Private Sub Init_Combo()
        Dim conn1 As New OleDb.OleDbConnection()
        Dim cmd1 As New OleDb.OleDbCommand()
        Dim MyReader As OleDb.OleDbDataReader
        conn1.ConnectionString = _
                    "Provider=SQLOLEDB;data source=lbm1\lbm_vb;" & _
                     "integrated security=SSPI;initial catalog=pubs;"
        cmd1.CommandText = m_TableName
        cmd1.Connection = conn1
        cmd1.Connection.Open()
        cboAuthors.Items.Clear()
        MyReader = cmd1.ExecuteReader(CommandBehavior.CloseConnection)
        'Loop until there are no more reports to add
        While MyReader.Read
            cboAuthors.Items.Add(MyReader(m_Displayfield))
        End While
        MyReader.Close()
        conn1.Close()
End Sub
